<Serializable()> _
Public Class ServiceEventArgs
    Inherits System.EventArgs

    Private FSender As String
    Private FMessage As String

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal sender As String, _
      ByVal message As String)
        MyClass.New()
        FSender = sender
        FMessage = message
    End Sub

    Public ReadOnly Property Sender() As String
        Get
            Return FSender
        End Get
    End Property

    Public ReadOnly Property Message() As String
        Get
            Return FMessage
        End Get
    End Property
End Class